perm filename ARRAY.DIF[X,AIL] blob
sn#076472 filedate 1973-12-10 generic text, type T, neo UTF8
1) ARRAY[S,AIL] vs. 2) ARRAY SRCCOM 12-10-73 17:36 PAGES 1,1
******** ARRAY[S,AIL] **** PAGE 1
1) COMMENT ⊗ VALID 00016 PAGES VERSION 17-1(8)
1) RECORD PAGE DESCRIPTION
*** ARRAY *** PAGE 1
2) COMMENT ⊗ VALID 00016 PAGES VERSION 17-1(7)
2) RECORD PAGE DESCRIPTION
******** ARRAY[S,AIL] **** PAGE 2
1) 021 102100000010 ⊗;
1) COMMENT ⊗
1) VERSION 17-1(8) 12-10-73 BY JRL ON BUG PP ONLY GIVE ERROR IF AN OWN ARRAY
1) VERSION 17-1(7) 12-7-73 BY JRL REMOVE SPECIAL STANFORD CHARACTERS (WHERE POSSIBLE)
*** ARRAY *** PAGE 2
2) 021 102100000007 ⊗;
2) COMMENT ⊗
2) VERSION 17-1(7) 12-7-73 BY JRL REMOVE SPECIAL STANFORD CHARACTERS (WHERE POSSIBLE)
******** ARRAY[S,AIL] **** PAGE 10
1) JRST NWORRY ;WON'T CAUSE FIXUP PROBLEM
1) SKIPE OWNWD ;DON'T WORRY IF NOT AN OWN ARRAY
1) ERR <VIRTUAL ORIGIN OF OUTER-BLOCK OR OWN ARRAY BEFORE START OF REL FILE.
1) PROCEED AT YOUR PERIL>,1
1) NWORRY:
1) >;REN
*** ARRAY *** PAGE 10
2) JRST .+2 ;WON'T CAUSE FIXUP PROBLEM
2) ERR <VIRTUAL ORIGIN OF OUTER-BLOCK OR OWN ARRAY BEFORE START OF REL FILE.
2) PROCEED AT YOUR PERIL>,1
2) >;REN